home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / sunrize / psound_3.1 / public_domain / noisy / libtest.bas (.txt) next >
AmigaBASIC Source Code  |  1994-11-17  |  297b  |  13 lines
  1. DECLARE FUNCTION LoadSound&()  LIBRARY
  2. DECLARE FUNCTION UnLoadSound() LIBRARY
  3. DECLARE FUNCTION PlaySound()   LIBRARY
  4. DEFLNG  K
  5. DEFLNG  L
  6. LIBRARY "noisy.library"
  7. K&=LoadSound&(SADD("anguish"+CHR$(0)), 0)
  8. IF (K& = 0) THEN GOTO EndIt
  9. L& = PlaySound(K)
  10. DeleteSound(K)
  11. EndIt: LIBRARY CLOSE
  12.  
  13.